unit MenuTuristikUt;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ComCtrls;

type
  TMenuTuristik = class(TForm)
    MenuTuristik: TMainMenu;
    MenuClientes: TMenuItem;
    MenuProveedores: TMenuItem;
    MenuClientesMantenimiento: TMenuItem;
    SubMenuClientesMantenimientoClientes: TMenuItem;
    MenuProveedoresMantenimiento: TMenuItem;
    SubMenuProveedoresMantenimientoProveedores: TMenuItem;
    SubMenuProveedoresMantenimientoCategorias: TMenuItem;
    SubMenuProveedoresMantenimientoServicios: TMenuItem;
    MenuPaquetes: TMenuItem;
    MenuPaquetesMantenimiento: TMenuItem;
    SubMenuPaquetesMantenimientoCampanhas: TMenuItem;
    SubMenuProveedoresMantenimientoPresupuestos: TMenuItem;
    MenuProveedoresCalificacion: TMenuItem;
    SubMenuPaquetesMantenimientoPaquetes: TMenuItem;
    MenuReservas: TMenuItem;
    MenuReservasMantenimiento: TMenuItem;
    SubMenuReservasMantenimientoReservas: TMenuItem;
    MenuClientesListados: TMenuItem;
    SubMenuClientesListadoClientes: TMenuItem;
    MenuVentas: TMenuItem;
    MenuVentasFacturas: TMenuItem;
    MenuProveedoresListados: TMenuItem;
    SubMenuProveedoresListadoProveedores: TMenuItem;
    SubMenuProveedoresListadoServicios: TMenuItem;
    MenuPaquetesListados: TMenuItem;
    SubMenuPaquetesListadoCampanhas: TMenuItem;
    SubMenuPaquetesListadoPaquetes: TMenuItem;
    SubMenuReservasMantenimientoSenhas: TMenuItem;
    BarraStatus: TStatusBar;
    MenuUsuarios: TMenuItem;
    MenuUsuariosMantenimiento: TMenuItem;
    SubMenuUsuariosMantenimientoUsuarios: TMenuItem;
    MenuVentasTimbrados: TMenuItem;
    MenuReservasListados: TMenuItem;
    SubMenuReservasListadosReservas: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SubMenuClientesMantenimientoClientesClick(Sender: TObject);
    procedure SubMenuProveedoresMantenimientoProveedoresClick(Sender: TObject);
    procedure SubMenuProveedoresMantenimientoCategoriasClick(Sender: TObject);
    procedure SubMenuProveedoresMantenimientoServiciosClick(Sender: TObject);
    procedure SubMenuPaquetesMantenimientoCampanhasClick(Sender: TObject);
    procedure SubMenuProveedoresMantenimientoPresupuestosClick(Sender: TObject);
    procedure MenuProveedoresCalificacionClick(Sender: TObject);
    procedure SubMenuPaquetesMantenimientoPaquetesClick(Sender: TObject);
    procedure SubMenuReservasMantenimientoReservasClick(Sender: TObject);
    procedure SubMenuClientesListadoClientesClick(Sender: TObject);
    procedure MenuVentasFacturasClick(Sender: TObject);
    procedure SubMenuProveedoresListadoProveedoresClick(Sender: TObject);
    procedure SubMenuProveedoresListadoServiciosClick(Sender: TObject);
    procedure SubMenuPaquetesListadoPaquetesClick(Sender: TObject);
    procedure SubMenuReservasMantenimientoSenhasClick(Sender: TObject);
    procedure SubMenuUsuariosMantenimientoUsuariosClick(Sender: TObject);
    procedure MenuVentasTimbradosClick(Sender: TObject);
    procedure SubMenuPaquetesListadoCampanhasClick(Sender: TObject);
    procedure SubMenuReservasListadosReservasClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MenuTuristik: TMenuTuristik;

implementation

{$R *.dfm}

uses ConectarUt, DMTuristikUt, MantenimientoClientesUt,
  MantenimientoProveedoresUt, MantenimientoCategoriasUt,
  MantenimientoServiciosUt, MantenimientoCampanhasUt,
  MantenimientoPresupuestosUt, CalificacionProveedoresUt,
  MantenimientoPaquetesUt, MantenimientoReservasUt, ListadoClientesUt,
  MantenimientoVentasUt, ListadoProveedoresUt, ListadoServiciosUt,
  ListadoPaquetesUt, MantenimientoReservasSenhasUt, MantenimientoUsuariosUt,
  MantenimientoTimbradosUt, ListadoCampanhasUt, ListadoReservasPorPaqueteUt;

procedure TMenuTuristik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DMTuristik.DBTuristik.Close;
  DMTuristik.Destroy;
  Application.Terminate;
end;

procedure TMenuTuristik.FormShow(Sender: TObject);
begin
  Application.CreateForm(TConectar, Conectar);
  Conectar.ShowModal;
end;

procedure TMenuTuristik.MenuProveedoresCalificacionClick(Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TCalificacionProveedores, CalificacionProveedores);
    CalificacionProveedores.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.MenuVentasFacturasClick(Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoVentas, MantenimientoVentas);
    MantenimientoVentas.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.MenuVentasTimbradosClick(Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoTimbrados, MantenimientoTimbrados);
    MantenimientoTimbrados.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuClientesListadoClientesClick(Sender: TObject);
begin
  Application.CreateForm(TListadoClientes, ListadoClientes);
  ListadoClientes.Show;
end;

procedure TMenuTuristik.SubMenuClientesMantenimientoClientesClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoClientes, MantenimientoClientes);
    MantenimientoClientes.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuPaquetesListadoCampanhasClick(Sender: TObject);
begin
  Application.CreateForm(TListadoCampanhas, ListadoCampanhas);
  ListadoCampanhas.Show;
end;

procedure TMenuTuristik.SubMenuPaquetesListadoPaquetesClick(Sender: TObject);
begin
  Application.CreateForm(TListadoPaquetes, ListadoPaquetes);
  ListadoPaquetes.Show;
end;

procedure TMenuTuristik.SubMenuPaquetesMantenimientoCampanhasClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoCampanhas, MantenimientoCampanhas);
    MantenimientoCampanhas.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuPaquetesMantenimientoPaquetesClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoPaquetes, MantenimientoPaquetes);
    MantenimientoPaquetes.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuProveedoresListadoProveedoresClick(
  Sender: TObject);
begin
  Application.CreateForm(TListadoProveedores, ListadoProveedores);
  ListadoProveedores.Show;
end;

procedure TMenuTuristik.SubMenuProveedoresListadoServiciosClick(
  Sender: TObject);
begin
  Application.CreateForm(TListadoServicios, ListadoServicios);
  ListadoServicios.Show;
end;

procedure TMenuTuristik.SubMenuProveedoresMantenimientoCategoriasClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoCategorias, MantenimientoCategorias);
    MantenimientoCategorias.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuProveedoresMantenimientoPresupuestosClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoPresupuestos, MantenimientoPresupuestos);
    MantenimientoPresupuestos.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuProveedoresMantenimientoProveedoresClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoProveedores, MantenimientoProveedores);
    MantenimientoProveedores.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuProveedoresMantenimientoServiciosClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoServicios, MantenimientoServicios);
    MantenimientoServicios.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuReservasListadosReservasClick(Sender: TObject);
begin
  Application.CreateForm(TListadoReservasPorPaquete, ListadoReservasPorPaquete);
  ListadoReservasPorPaquete.Show;
end;

procedure TMenuTuristik.SubMenuReservasMantenimientoReservasClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoReservas, MantenimientoReservas);
    MantenimientoReservas.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuReservasMantenimientoSenhasClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL <> 'CONSULTAS' then
  begin
    Application.CreateForm(TMantenimientoReservasSenhas, MantenimientoReservasSenhas);
    MantenimientoReservasSenhas.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

procedure TMenuTuristik.SubMenuUsuariosMantenimientoUsuariosClick(
  Sender: TObject);
begin
  if LogUSUARIO_ROL = 'ADMINISTRADOR' then
  begin
    Application.CreateForm(TMantenimientoUsuarios, MantenimientoUsuarios);
    MantenimientoUsuarios.Show;
  end
  else
  begin
    ShowMessage('Acceso no permitido.');
    Exit;
  end;
end;

end.
